home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 November / SGI Freeware 1999 November - Disc 1.iso / dist / fw_expect.idb / usr / freeware / lib / expect / cat-buffers.z / cat-buffers
Text File  |  1999-01-26  |  526b  |  22 lines
  1. #!expect --
  2. # Synopsis: fixcat
  3. # Author: Don Libes
  4.  
  5. # Description: test to see if /bin/cat is unbuffered (i.e., -u is needed)
  6. # Return 0 if buffered, 1 if unbuffered.
  7. #
  8. # If this file is sitting in an architecture-specific library directory,
  9. # then it serves as a marker that your /bin/cat buffers by default.
  10.  
  11. # test for when catting to/from files
  12. log_user 0
  13. spawn -open [open "|cat" "r+"]
  14. send "\r"
  15. expect "\r" {exit 1}
  16.  
  17. # test for when catting to real tty
  18. #log_user 0
  19. #spawn /bin/cat
  20. #send "\r"
  21. #expect "\r\n\r\n" {exit 1}
  22.